﻿
Imports System.Drawing

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<ComponentModel.DefaultEvent("CellContentClick")> _
Public Class ExtendedDataGridView
    Inherits System.Windows.Forms.DataGridView

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        'Me.SetStyle(Windows.Forms.ControlStyles.SupportsTransparentBackColor, True)
        'Me.SetStyle(Windows.Forms.ControlStyles.OptimizedDoubleBuffer, True)
        'Me.SetStyle(Windows.Forms.ControlStyles.ResizeRedraw, True)
        'Me.ResizeRedraw = True

    End Sub

#Region "Designer Generated Code"
    'UserControl overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private WithEvents components As System.Windows.Forms.DataGridView

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.Windows.Forms.DataGridView()
        Me.SuspendLayout()
        '
        'components
        '
        Me.components.Location = New System.Drawing.Point(0, 0)
        Me.components.Name = "ExtendedDataGridView"
        Me.components.Size = New System.Drawing.Size(100, 23)
        Me.components.TabIndex = 0
        '
        'ExtendedDataGridView
        '
        Me.Name = "ExtendedDataGridView"
        Me.ResumeLayout(False)
    End Sub
#End Region

    'Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
    '    MyBase.OnPaint(e)
    '    If Me.BorderStyle = Windows.Forms.BorderStyle.None _
    '        AndAlso Me.DesignMode Then
    '        Dim pen As New Pen(SystemBrushes.ActiveBorder)
    '        pen.DashStyle = Drawing2D.DashStyle.Dot
    '        e.Graphics.DrawRectangle(pen, Me.ClientRectangle.X, Me.ClientRectangle.Y, Me.ClientRectangle.Width - 1, Me.ClientRectangle.Height - 1)
    '    End If
    '    If Me.ColumnCount < 1 Then
    '        Dim sf As New StringFormat
    '        sf.Alignment = StringAlignment.Center
    '        sf.LineAlignment = StringAlignment.Center
    '        e.Graphics.DrawString("No data to display", Me.Font, SystemBrushes.ControlText, Me.ClientRectangle, sf)
    '    End If
    'End Sub


End Class
